home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
001-025
/
disk_013
/
termtest.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-06
|
755b
|
32 lines
1 'Demo of Abasic SSHAPE function.
2 'define a box on screen by
3 'clicking upper left and
4 'lower right limits. then
5 'draw with mouse by clicking
6 'left button and moving.
7 'you'll get the hang real quick.
50 sleep 1000000
60 crlf$ = chr$(13)+chr$(10)
100 INI$="ATS0=1"
110 atdt$="ATDT"
120 open "O",1,"SER:"
130 open "I",2,"SER:"
140 get a$
145 if a$="" then 140
147 if a$=chr$(27) then stop
150 print #1,a$;
155 print a$;
157 if a$=chr$(13) then 1000
160 goto 140
1000 stop
2000 input "what file to xfer";fi$
2003 if li$="$" then stop
2010 open "I",3,fi$
2020 while not eof(3)
2030 line input #3,li$
2040 print #1,li$
2045 print #1,chr$(13)
2050 wend
2055 close #3
2060 goto 2000